home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / busy.doc < prev    next >
Text File  |  1995-03-31  |  2KB  |  64 lines
  1. Author: [Jan Brittenson] 
  2.   Date: Sat Jun 29 1991 14:52  
  3.  Lines: 58 
  4.  
  5. In a posting of [27 Jun 91 11:46:22 GMT] 
  6.    druegeme@hpwad.WAD.HP.COM (#Daniel Ruegemer) writes: 
  7.  
  8.  > Is it also possible to turn off the 'busy'- Announciator ? 
  9.  
  10. I'm not sure whether you can from a SYSEVAL, but you can from ML: 
  11.  
  12.         42333 turns it on 
  13.  
  14.         42359 turns it off 
  15.  
  16.  
  17.    Or, in a code object (I hope the opcodes are correct; they are 
  18. entered from memory, and are intended only for illustration): 
  19.  
  20. To turn it on: 
  21.  
  22.         ccd20                   ; code object 
  23.         a1000                   ; code size, including these 5 nybbles (5+3*7) 
  24.  
  25.         8fb9760 call.a  679b    ; stash away RPL registers 
  26.         8f33324 call.a  42333   ; turn on annunciator 
  27.         8d34150 jump.a  5143    ; reload RPL registers, continue thread 
  28.  
  29. To turn it off: 
  30.  
  31.         ccd20                   ; code object 
  32.         a1000                   ; same size as above 
  33.  
  34.         8fb9760 call.a  679b    ; stash away RPL registers 
  35.         8f95324 call.a  42359   ; turn annunciator off 
  36.         8d34150 jump.a  5143    ; reload RPL registers, continue thread 
  37.  
  38.  
  39. Actually, I just tried both routines, and they work just fine.  Enter the hex 
  40. data and use Rick's ASCI-> to convert to a code object.  To simplify the 
  41. typing, enter the on routine, convert it, recover it with LAST ARG, and modify 
  42. just the sequence "333" to "953" to obtain the hex string for the off routine. 
  43. Both 42333 and 42359 update the flag word at 706c3 as well as 10b to toggle the 
  44. actual display. 
  45.  
  46. Of course, if these are available via SYSEVALs, then you're saved some typing. 
  47.  
  48. Save the above two routines in BON and BOFF, then run the following program: 
  49.  
  50.         << DO BON .5 WAIT BOFF .5 WAIT 
  51.            UNTIL 0 
  52.            END 
  53.         >> 
  54.  
  55. It will blink the busy annunciator. 
  56.  
  57. Have fun. 
  58.  
  59.                                                 -- Jan Brittenson 
  60.                                                    bson@ai.mit.edu 
  61.  
  62. [Note: The 'BUSY' file on this disk is an HP 48 directory containing Jan's 
  63.  programs described above: BON, BOFF, and his DEMO.  -jkh-] 
  64.